home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu721.dms / pu721.adf / De-Compress < prev    next >
Text File  |  1978-05-02  |  7KB  |  254 lines
  1. ;;
  2. ;;             EPU-Stakker Un-Install
  3. ;;
  4. ;;     by S.Tavener - National Amiga Users Group
  5. ;;                     
  6. ;; DATE     : 3/9/94
  7. ;; REVISION NO. : v1.70
  8. ;;
  9. ;; © Installer Routine Copyright to Stuart Tavener
  10.  
  11.  
  12. (set @default-dest "WorkBench:")
  13.  
  14. (set intro
  15.    (cat
  16.          "\n\nDe-Compression Routine\n"
  17.          "Compiled by Stuart Tavener - September '94\n"
  18.          "\n\nINSTRUCTIONS\n "
  19.          "BOOT from Workbench as Normal\n"
  20.          "then Run this De-Compression Routine\n"        
  21.    )
  22. )
  23.  
  24. (set deflib (cat " - NOT Installed"))
  25.  
  26. (set devices-help
  27.    (cat "This Should be the Device with the Startup-Sequence "
  28.         "that is booted up. As this starts EPU.\n\n"
  29.         "HARDDISK USERS should choose 'SYS:'\n\n"                
  30.         "FLOPPY DRIVE users can just select DF0: or similar,"
  31.         "but this Device should be Bootable with a Startup-Sequence."
  32.    )
  33. )
  34.  
  35.  
  36. (set startupfileerr (cat "\n\n\nYou Have no Startup-sequence on this Disk!"
  37.                          "\nSo EPU cannot be Installed !!")
  38. )
  39.  
  40.  
  41. (set again (cat "\n\n\n\n\n\n\ Do You want to Un-Compress Another Device ?"))
  42.  
  43. (set reboot (cat "\n\n\n\n To Take Effect of EPU Stakker"
  44.                  "\n Re-Boot Your Computer NOW"
  45.             )
  46. )
  47.  
  48. ;-----------------------------------------------------------
  49.  
  50. (complete 0)
  51. (message intro)
  52. (welcome)
  53.  
  54. ;ask which is boot device for compressed drives
  55.  
  56. (set @default-dest
  57.    (askdir
  58.        (prompt "\nPlease Select Your Boot Device\n")
  59.        (help devices-help)
  60.        (default "SYS:")
  61.    )
  62. )
  63.  
  64. (complete 5)
  65.  
  66. ;redo 'install' loop flag
  67. (set install 1)
  68.  
  69. (while install
  70.  
  71.    (complete 10)
  72.  
  73.    (set installdevice
  74.       (askdir 
  75.          (prompt "\nPlease Select Device or Partition that\n"
  76.              "you wish to De-Compress\n")
  77.          (help "This section allows you to choose which drive/device "
  78.            "you want to compress.\n\n"
  79.            "HARD DISK users can pick any partition (See documents "
  80.            "before compressing your Workbench partition).\n\n"
  81.            "FLOPPY DISK users should pick the SAME device (disk) "
  82.            "that they chose at the last option - See Docs!.") 
  83.          (default "Work:")
  84.          (disk)
  85.       )
  86.    )
  87.  
  88.    (complete 20)
  89.  
  90.       (set lib "NONE")      
  91.       (set len (- (strlen installdevice) 1))
  92.       (set dev (substr installdevice 0 len))
  93.  
  94.    (complete 30)
  95.  
  96.    (if (exists ("T:"))
  97.          (set null 0)
  98.          (
  99.              (makedir (tackon @default-dest "T"))
  100.           (makeassign "T" (Tackon @default-dest "T"))
  101.         )
  102.    )
  103.    
  104.    ;------------------------------------------------------------
  105.  
  106.    (complete 40)
  107.  
  108.     (if (<> @pretend 1)
  109.         ;so if not in pretend mode then do this bit.
  110.         (
  111.            ;-----------------------------------------------------------
  112.            ;change Startup-sequence, no EPU for chosen device (lib NONE)
  113.  
  114.             ;remove startup-old for sake of errors
  115.            (if (exists (tackon @default-dest "s/startup-old"))      
  116.               (delete (tackon @default-dest "s/startup-old") (optional"force"))                            
  117.            )
  118.       
  119.            (if (exists (tackon @default-dest "s/startup-sequence"))
  120.                (
  121.                      (protect (tackon @default-dest "s/startup-sequence") "+w")
  122.                     (rename (tackon @default-dest "s/startup-sequence") (tackon @default-dest "s/startup-old"))         
  123.                 )
  124.               (Abort startupfileerr)     
  125.            )
  126.  
  127.            (complete 50)
  128.            
  129.            ;-----------------------------------------
  130.            ;create new Startup-sequence with epu run line
  131.     
  132.            (textfile
  133.               (help)
  134.               (prompt)
  135.               (dest (tackon @default-dest "s/startup-sequence"))
  136.               (append (cat "EPU device " dev " lib NONE Hmode\n"))
  137.               (include (tackon @default-dest "s/startup-old"))        
  138.            )
  139.         )
  140.     )    
  141.     (complete 55)
  142.  
  143.     ;-----------------------------------------------------------
  144.       ;create new EPU execute script file for chosen device
  145.  
  146.       (textfile
  147.          (help)
  148.          (prompt)
  149.          (dest (tackon @default-dest "start"))
  150.          (append  (cat "EPU device " dev  " lib NONE Chng"))
  151.          (safe)
  152.       )
  153.  
  154.    (complete 60)
  155.    
  156.     ;-----------------------------------------------------------
  157.     ;run EPU 'start' script file - EVERYTHING WRITTEN TO INSTALLDEVICE
  158.     ; WILL NOW BE COMPRESSED WITH THIS LIBRARY !!!!!!!!!!!
  159.  
  160.     ;only run EPU if in REAL mode
  161.     (if (<> @pretend 1)
  162.         (execute (tackon @default-dest "start"))
  163.     )
  164.     
  165.    ;--------------------------------
  166.     
  167.    (complete 65)
  168.     
  169.     ;write 'compress' script to recomp selected drive
  170.    ;and delete extra .EpuTmp files
  171.    
  172.    (set update (cat "\n\n\nEPU Un-Installed from " installdevice " "
  173.                     "\n\n\nStarting EPU Un-Compression\n\n\n Press 'Proceed'"
  174.                     "to Un-Compress Device")
  175.    )
  176.  
  177.    (textfile
  178.       (help "\nThe EPU program will Uncompress your chosen device or partition "
  179.         "when you press proceed.\n\n"
  180.         "REMEMBER that the Uncompression may take some time, especially "
  181.         "if you are Uncompressing are large hard drive - maybe 3 hours!\n\n"
  182.         "The program will delete any TMP (temporary) files created by "
  183.         "the compression so don't reset your drive until the drive stops "
  184.         "and you are told to do so.\n\n"
  185.         "         Press PROCEED to Uncompress your device"
  186.       )
  187.       (prompt update)
  188.       (dest (tackon @default-dest "Uncompress"))
  189.       (append
  190.           (cat "stack 500000\n"
  191.                   "Recomp >CON: " installdevice " all\n"
  192.                   "STAKKER:C/delete " installdevice "#?.EpuTmp\n"
  193.                   "STAKKER:C/delete " installdevice "#?/#?.EpuTmp\n"
  194.             )
  195.       )
  196.       (confirm)
  197.       (safe)
  198.    )
  199.  
  200.    (complete 70)
  201.  
  202.    ;------------------------------------
  203.    ;execute Uncompress file
  204.    (set workmsg 
  205.        (cat "\n\n\n Uncompressing All of " installdevice "\n\n Please Wait ...."
  206.                   "\n\nIF The EPU UnCompression fails and Will not Exit..."
  207.                   "\n\nIt IS safe to 'ReBoot' your computer"
  208.                   "\nONLY if the Working drive has STOPPED."
  209.                   "\nAs damage to the Data/File Structure may occur"
  210.       )
  211.    )
  212.  
  213.    (working workmsg)
  214.  
  215.    (complete 75)
  216.  
  217.    (execute (tackon @default-dest "Uncompress"))
  218.  
  219.    (complete 99)
  220.  
  221.    ;now remove all extra files
  222. ;   (delete (tackon @default-dest "start"))
  223. ;   (delete (tackon @default-dest "uncompress"))
  224.         
  225.    ;------------------------------------------------------------
  226.  
  227.    (complete 100)
  228.  
  229.    (
  230.       (set install
  231.          (askbool
  232.             (prompt again)
  233.             (help "This option allows you to Uncompress another partition"
  234.                           " or device."
  235.                 )
  236.             (default 1)
  237.          )
  238.       )
  239.     
  240.       (if install
  241.          (set install 1) ; do it all again
  242.          (set install 0) ; finish
  243.       )
  244.    )
  245. )    
  246.  
  247. (exit
  248. (reboot)
  249. (quiet)
  250. )
  251. ;------------------------------------------------------------
  252.  
  253.  
  254.